home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0295.lzh / AMOSLIST / text0031.txt < prev    next >
Encoding:
Text File  |  1995-03-01  |  2.8 KB  |  67 lines
  1.  
  2. > I tried out this routine last night and with some small modifications it worked.
  3. > The logic was spot on, just some syntax and spelling problems.
  4. > 
  5. > I couldn't get the "pop proc[1]" type statement working nor could I find
  6. > reference to using pop proc in this manner. Please enlighten me if this 
  7. > is possible.  I simply used:
  8. > 
  9. > ; button declared as global
  10. >       button=1      
  11. >       pop proc
  12. >  
  13.  
  14.  
  15. Perhaps that is AMOSPro only. A better style than yours is instead of
  16. making button global, put "End Proc[button]" on the end of the procedure,
  17. and delete all the pop procs. Since the code is all in a big IF ELSE ENDIF
  18. statement, the logic will not change when you do this. End Proc[] definitely
  19. works in all versions of AMOS. You can then call the procedure with:
  20.  
  21. TESTBUTTONPRESS[STICK] : BUTTON=Param
  22.  
  23.  
  24. > I think I had problems with the START_TIME variable name as it clashed with a 
  25. > reserved word so I just used BEGIN_TIME.
  26. > 
  27. > Where Paul used "If START_TIME" I used "If BEGIN_TIME<>0".
  28. > Are these If's testing the same thing? (notwithstanding my change of variable name)
  29.  
  30. Yes. AMOS simply evaluates the BEGIN_TIME<>0 to either -1 (True) or 0 (False)
  31. before considering the if, then the IF command looks at its now numeric
  32. argument, and checks if it is non zero. Therefore to check for a variable
  33. begin non-zero, you use IF <VARIABLE> and to check for a variable being zero,
  34. you can use IF Not <VARIABLE>. I admit that it is better style to use <> 0
  35. for numbers, but my style should be used for boolean variables.
  36.  
  37. > 
  38. > I would also like to test for the joystick being held or pressed to the left or right
  39. > or just tapped as well as the button being tested in this manner. Later I will probably
  40. > want to do the same for up and down!
  41. > 
  42. > Q1. Should I incorporate all of this in the one procedure which checks every feature of
  43. >     the joystick in one test of the joy(1) function or should I write seperate procedures.
  44. > 
  45.  
  46. Using Jleft/Jright etc. is not significantly faster or slower than joy(). As
  47. to the number of procedures, use whatever works best for you. Be aware that
  48. having many very small procedures will be slightly slower.
  49.  
  50. > Max Monahan
  51. > M.Monahan@bom.gov.au
  52. >       
  53.  
  54.  
  55. +-------------------------+------------------------------------+
  56. |                         |    _____                           |
  57. | PAUL HICKMAN            |   /     \   ON A HOT SUMMER NIGHT  |
  58. | (ph@doc.ic.ac.uk)       |  /  O O  \  WOULD YOU  OFFER YOUR  |
  59. | DEPARTMENT OF COMPUTING | |    _    | THROAT  TO  THE  WOLF  |
  60. | IMPERIAL COLLEGE LONDON |  \  / \  /  WITH THE RED  ROSES ?  |
  61. |                         |   \_____/                          |
  62. +-------------------------+------------------------------------+
  63. Machines: Amiga 500  WB1.3 - 1mb Memory - External Disk Drive.
  64.           Amiga 1200 WB3.0 - 6mb Memory - 200Mb Hard Disk.
  65.  
  66.  
  67.